Indietro
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ("universitanew") set rs=Server.Createobject("ADODB.Recordset") rs.activeconnection=conn sql="SELECT *,Materie.CO_ID as ID_COD " &_ " FROM (((Materie LEFT JOIN Docenti_Materie ON Materie.MA_ID = Docenti_Materie.DM_ID_MATERIA) LEFT JOIN Docenti ON Docenti_Materie.DM_ID_DOCENTE = Docenti.DO_ID) LEFT JOIN Corsi_di_Laurea ON Docenti_Materie.DM_ID_CORSO = Corsi_di_Laurea.CL_ID) LEFT JOIN Durata ON Materie.MA_DURATA = Durata.DU_ID " &_ " WHERE Materie.MA_ID=" & request.querystring & " " &_ " ORDER BY Materie.MA_DES, Corsi_di_Laurea.CL_ID, Docenti_Materie.DM_ORDINE" rs.open sql CO_ID=rs("ID_COD") MA_OBIETTIVI=rs("MA_OBIETTIVI") MA_PROGRAMMA=rs("MA_PROGRAMMA") MA_TESTI=rs("MA_TESTI") MA_AVVERTENZE=rs("MA_AVVERTENZE") MA_ACCERTAMENTO=rs("MA_ACCERTAMENTO") MA_AVVERTENZE2=rs("MA_AVVERTENZE2") %>

<%=rs("MA_DES")%>
(<%=rs("MA_NUMERO_CREDITI")%> crediti) <%if not isnull(rs("DU_DES")) then response.write " [" & rs("DU_DES") & "]"%>
<% for i=asc("A") to asc("Z") %> <%=chr(i)%> <%if i :: <%end if%> <% next %>

<% do while not rs.eof %>

<% if rs("CL_ID")<>CL_ID then %> <% else %> <% end if %>
<%=rs("CL_DES")%> "><%=rs("DO_COGNOME") & " " & rs("DO_NOME")%>
 
<% MA_ID=rs("MA_ID") CL_ID=rs("CL_ID") rs.movenext loop %>
<% if not isnull(MA_OBIETTIVI) then %> Obiettivi formativi
<%=replace(MA_OBIETTIVI,vbcrlf,"
")%>

<%end if%> <%if not isnull(MA_PROGRAMMA) then %> Programma del Corso
<%=replace(MA_PROGRAMMA,vbcrlf,"
")%>

<%end if%> <%if not isnull(MA_TESTI) then %> Testi di riferimento
<%=replace(MA_TESTI,vbcrlf,"
")%>

<%end if%> <%if not isnull(MA_AVVERTENZE) then %> Modalitą didattiche
<%=replace(MA_AVVERTENZE,vbcrlf,"
")%>

<%end if%> <%if not isnull(MA_ACCERTAMENTO) then %> Modalitą di accertamento
<%=replace(MA_ACCERTAMENTO,vbcrlf,"
")%>

<%end if%> <%if not isnull(MA_AVVERTENZE2) then %> Avvertenze
<%=replace(MA_AVVERTENZE2,vbcrlf,"
")%>

<%end if%> <% '--------------MATERIALE-------------- sql="SELECT * " &_ " FROM WN_Allegati INNER JOIN WN_CO_AL ON WN_Allegati.AL_ID = WN_CO_AL.CO_LI_Allegato " &_ " WHERE (((WN_CO_AL.CO_LI_Contenuto)=" & CO_ID & "))" set rsa=conn.execute(sql) %> <% if not(rsa.eof) then %>

Materiale

<% end if '--------------MATERIALE-------------- %>